home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 2
/
Aminet AMIGA CDROM (1994)(Walnut Creek)[Feb 1994][W.O. 44790-1].iso
/
Aminet
/
comm
/
term
/
JRC102R.LZH
/
WBStrip
< prev
next >
Wrap
Text File
|
1991-04-03
|
7KB
|
311 lines
echo "*N *E[42m *E[0m"
echo " *E[42m JR-Comm v1.0 · © 1988-90 by John P. Radigan · All Rights Reserved *E[0m"
echo " *E[42m *E[32;43m « WARNING » *E[32;41m This script erases files from your WorkBench disk. *E[42m *E[0m"
echo " *E[42m *E[0m"
echo "*NAnswer `yes' ONLY if you have a backup *E[4mcopy*E[0m of your"
echo "WorkBench disk in DF0: ready to be modified. Please *E[4mdon't*E[0m"
echo "change your original."
lab Begin
ask "*NAre you ready to permanently alter a copy (Y=yes, N=no)? =>"
if not warn
echo "*NNo problem --" noline
lab Continue
echo " type the letter Y and press [ENTER] when"
echo "the disk is ready, or hold the control key while you type"
ask "the letter D and then push [ENTER] to quit this script. =>"
if warn
skip back Begin
endif
echo "*N*NBAD ENTRY. Please" noline
skip back Continue
endif
echo "*N*NMoving working files to ram: to speed up script execution..."
copy c:copy ram:
cd ram:
copy c:echo ""
copy c:rename ""
copy c:cd ""
copy c:delete ""
copy c:if ""
copy c:else ""
copy c:endif ""
path add ""
cd df0:
echo "Removing unnecessary files from root directory."
if exists Clock
delete Clock
if exists Clock.info
delete Clock.info
endif
endif
if exists Shell
delete Shell
if exists Shell.info
delete Shell.info
endif
endif
if exists LICENSE
delete LICENSE
if exists LICENSE.info
delete LICENSE.info
endif
endif
if exists ReadMe
delete ReadMe
if exists ReadMe.info
delete ReadMe.info
endif
endif
if exists c
echo "Removing unnecessary files from subdirectory 'c'."
cd c
if exists DiskDoctor
delete DiskDoctor
endif
if exists Edit
delete Edit
endif
if exists Search
delete Search
endif
if exists Sort
delete Sort
endif
if exists Binddrivers
delete Binddrivers
endif
if exists Break
delete Break
endif
if exists ChangeTaskPri
delete ChangeTaskPri
endif
if exists DiskChange
delete DiskChange
endif
if exists Eval
delete Eval
endif
if exists Fault
delete Fault
endif
if exists FileNote
delete FileNote
endif
if exists Install
delete Install
endif
if exists Join
delete Join
endif
if exists Lock
delete Lock
endif
if exists NewShell
delete NewShell
endif
if exists Prompt
delete Prompt
endif
if exists Protect
delete Protect
endif
if exists Status
delete Status
endif
if exists Version
delete Version
endif
if exists Which
delete Which
endif
if exists Why
delete Why
endif
if exists IconX
delete IconX
endif
endif
cd df0:
if exists System
echo "Removing unnecessary files from subdirectory 'System'."
cd System
if exists IconEd
delete IconEd
if exists IconEd.info
delete IconEd.info
endif
endif
if exists Say
delete Say
if exists Say.info
delete Say.info
endif
endif
if exists FixFonts
delete FixFonts
if exists FixFonts.info
delete FixFonts.info
endif
endif
if exists MergeMem
delete MergeMem
if exists MergeMem.info
delete MergeMem.info
endif
endif
if exists NoFastMem
delete NoFastMem
if exists NoFastMem.info
delete NoFastMem.info
endif
endif
if exists InitPrinter
delete InitPrinter
if exists InitPrinter.info
delete InitPrinter.info
endif
endif
endif
cd df0:
if exists l
cd l
echo "Removing unnecessary files from subdirectory 'l'."
if exists Speak-Handler
delete Speak-Handler
endif
endif
cd df0:
if exists devs
cd devs
echo "Removing unnecessary files from subdirectory 'devs'."
delete printers/#? quiet
if exists narrator.device
delete narrator.device
endif
endif
cd df0:
if exists s
cd s
echo "Removing unnecessary files from subdirectory 's'."
if exists CLI-Startup
delete CLI-Startup
endif
if exists Startup-Sequence
rename Startup-Sequence Startup-Sequence.bak
endif
if exists DPAT
delete DPAT
endif
if exists PCD
delete PCD
endif
if exists Shell-Startup
delete Shell-Startup
endif
if exists SPAT
delete SPAT
endif
if exists Startup-Sequence.HD
delete Startup-Sequence.HD
endif
endif
cd df0:
if exists fonts
cd fonts
echo "Removing unnecessary files from subdirectory 'fonts'."
delete #? all quiet
endif
cd df0:
if exists libs
cd libs
echo "Removing unnecessary files from subdirectory 'libs'."
if exists translator.library
delete translator.library
endif
if exists mathieeedoubbas.library
delete mathieeedoubbas.library
endif
if exists mathieeedoubtrans.library
delete mathieeedoubtrans.library
endif
if exists mathtrans.library
delete mathtrans.library
endif
endif
cd df0:
if exists Utilities
cd Utilities
echo "Removing unnecessary files from subdirectory 'Utilities'."
if exists Calculator
delete Calculator
if exists Calculator.info
delete Calculator.info
endif
endif
if exists Clock
delete Clock
if exists Clock.info
delete Clock.info
endif
endif
if exists ClockPtr
delete ClockPtr
if exists ClockPtr.info
delete ClockPtr.info
endif
endif
if exists Notepad
delete Notepad
if exists Notepad.info
delete Notepad.info
endif
endif
if exists Say
delete Say
if exists Say.info
delete Say.info
endif
endif
endif
cd df0:
if exists Prefs
cd Prefs
echo "Removing unnecessary files from subdirectory 'Prefs'."
if exists CopyPrefs
delete CopyPrefs
if exists CopyPrefs.info
delete CopyPrefs.info
endif
endif
endif
cd df0:
if exists Empty
echo "Removing subdirectory 'Empty'."
if exists Empty.info
delete Empty.info
endif
delete Empty all quiet
endif
if exists Expansion
echo "Removing subdirectory 'Expansion'."
if exists Expansion.info
delete Expansion.info
endif
delete Expansion all quiet
endif
if exists Demos
echo "Removing subdirectory 'Demos'."
if exists Demos.info
delete Demos.info
endif
delete Demos all quiet
endif
ram:lharc -m -x e ram:fonts df0:fonts/
copy ram:JR-Com#? df0:
copy ram:JR-Edi#? df0:
echo >df0:s/Startup-Sequence "LoadWB"
echo >>df0:s/Startup-Sequence "EndCLI >NIL:"
echo "*N*NDone."